home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / apple-events.elc < prev    next >
MacBinary  |  1994-03-23  |  5.8 KB  |  [dELC/EMAC]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) ext Unsupported
100% file MacBinary II, inited, Sat Feb 12 22:10:44 1994, modified Tue Mar 22 22:15:07 1994, creator 'EMAC', type 'dELC', 5261 bytes "apple-events.elc" Emacs v18 byte-compiled Lisp data, at 0x150d 316 bytes resource Emacs v18 byte-compiled Lisp data default (weak)
99% file data default
100% TrID MacBinary 2 default (weak)
100% lsar MacBinary default


id metadata
keyvalue
macFileType[dELC]
macFileCreator[EMAC]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 61 70 70 6c 65 2d | 65 76 65 6e 74 73 2e 65 |..apple-|events.e|
|00000010| 6c 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lc......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 01 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 14 8d 00 | 00 01 3c a9 83 4a b4 a9 |........|..<..J..|
|00000060| b5 64 bb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.d......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8f 0f 00 00 |........|........|
|00000080| 0a 28 64 65 66 6d 61 63 | 72 6f 20 75 6e 69 78 2d |.(defmac|ro unix-|
|00000090| 66 69 6c 65 6e 61 6d 65 | 2d 74 6f 2d 46 53 53 70 |filename|-to-FSSp|
|000000a0| 65 63 20 28 66 69 6c 65 | 6e 61 6d 65 20 73 70 65 |ec (file|name spe|
|000000b0| 63 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |c) (byte|-code ".|
|000000c0| c3 c4 08 44 44 43 c5 09 | c6 45 c7 46 87 22 20 5b |...DDC..|.E.F." [|
|000000d0| 66 69 6c 65 6e 61 6d 65 | 20 73 70 65 63 20 6c 65 |filename| spec le|
|000000e0| 74 20 74 65 6d 70 20 75 | 6e 69 78 2d 66 69 6c 65 |t temp u|nix-file|
|000000f0| 6e 61 6d 65 2d 74 6f 2d | 46 53 53 70 65 63 2d 69 |name-to-|FSSpec-i|
|00000100| 6e 74 65 72 6e 61 6c 20 | 73 65 74 71 20 28 63 61 |nternal |setq (ca|
|00000110| 72 20 74 65 6d 70 29 20 | 28 63 64 72 20 74 65 6d |r temp) |(cdr tem|
|00000120| 70 29 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |p)] 5)).|.(defun |
|00000130| 64 65 72 65 66 20 28 61 | 64 64 72 65 73 73 29 20 |deref (a|ddress) |
|00000140| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 08 c2 c3 |(byte-co|de "....|
|00000150| 23 87 22 20 5b 61 64 64 | 72 65 73 73 20 65 78 74 |#." [add|ress ext|
|00000160| 72 61 63 74 2d 69 6e 74 | 65 72 6e 61 6c 20 30 20 |ract-int|ernal 0 |
|00000170| 75 6e 73 69 67 6e 65 64 | 2d 6c 6f 6e 67 5d 20 34 |unsigned|-long] 4|
|00000180| 29 29 0a 0a 28 64 65 66 | 75 6e 20 74 68 72 6f 77 |))..(def|un throw|
|00000190| 2d 65 72 72 20 28 65 72 | 72 29 20 28 62 79 74 65 |-err (er|r) (byte|
|000001a0| 2d 63 6f 64 65 20 22 c1 | 08 21 3f 85 0b 00 c2 c3 |-code ".|.!?.....|
|000001b0| 08 5c 22 87 22 20 5b 65 | 72 72 20 7a 65 72 6f 70 |.\"." [e|rr zerop|
|000001c0| 20 74 68 72 6f 77 20 70 | 61 6e 69 63 5d 20 34 29 | throw p|anic] 4)|
|000001d0| 29 0a 0a 28 64 65 66 75 | 6e 20 61 65 2d 63 72 65 |)..(defu|n ae-cre|
|000001e0| 61 74 65 2d 61 70 70 6c | 65 2d 65 76 65 6e 74 2d |ate-appl|e-event-|
|000001f0| 69 6e 74 65 72 6e 61 6c | 20 28 74 61 72 67 65 74 |internal| (target|
|00000200| 49 44 20 65 76 65 6e 74 | 43 6c 61 73 73 20 65 76 |ID event|Class ev|
|00000210| 65 6e 74 49 44 29 20 28 | 62 79 74 65 2d 63 6f 64 |entID) (|byte-cod|
|00000220| 65 20 22 cb 09 cc 5c 22 | 18 ca 1a cb 0c cc 5c 22 |e "...\"|......\"|
|00000230| 1b ca 1d cb cd cc 5c 22 | 1e 06 cb cd cc 5c 22 1e |......\"|.....\".|
|00000240| 07 cb cd cc 5c 22 1e 08 | ce cf 8d 1e 09 0a 85 2c |....\"..|.......,|
|00000250| 00 d0 08 21 88 d1 0e 09 | 21 83 42 00 0e 09 0b d2 |...!....|!.B.....|
|00000260| 0e 08 cc d3 23 42 42 82 | 48 00 0e 09 ca ca 42 42 |....#BB.|H.....BB|
|00000270| 2e 08 87 22 20 5b 74 61 | 72 67 65 74 20 73 69 7a |..." [ta|rget siz|
|00000280| 65 6f 66 2d 41 45 44 65 | 73 63 20 68 61 76 65 2d |eof-AEDe|sc have-|
|00000290| 74 61 72 67 65 74 20 65 | 76 65 6e 74 20 73 69 7a |target e|vent siz|
|000002a0| 65 6f 66 2d 41 70 70 6c | 65 45 76 65 6e 74 20 68 |eof-Appl|eEvent h|
|000002b0| 61 76 65 2d 65 76 65 6e | 74 20 61 63 74 75 61 6c |ave-even|t actual|
|000002c0| 53 69 7a 65 20 72 65 73 | 75 6c 74 54 79 70 65 20 |Size res|ultType |
|000002d0| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 72 65 |transact|ionID re|
|000002e0| 73 75 6c 74 20 6e 69 6c | 20 6d 61 6b 65 2d 73 74 |sult nil| make-st|
|000002f0| 72 69 6e 67 20 30 20 34 | 20 70 61 6e 69 63 20 28 |ring 0 4| panic (|
|00000300| 62 79 74 65 2d 63 6f 64 | 65 20 22 d1 d2 08 09 d3 |byte-cod|e ".....|
|00000310| 0a 24 21 88 c4 89 13 88 | d1 d4 0d 0e 06 0a 0e 07 |.$!.....|........|
|00000320| 0e 08 0e 09 26 06 21 88 | c4 89 16 0a 88 d1 d5 0e |....&.!.|........|
|00000330| 09 0e 0b 0e 0c 0e 0d 0e | 0e d3 0e 0f 26 07 21 88 |........|....&.!.|
|00000340| 0e 10 87 22 20 5b 74 79 | 70 65 41 70 70 6c 53 69 |..." [ty|peApplSi|
|00000350| 67 6e 61 74 75 72 65 20 | 74 61 72 67 65 74 49 44 |gnature |targetID|
|00000360| 20 74 61 72 67 65 74 20 | 68 61 76 65 2d 74 61 72 | target |have-tar|
|00000370| 67 65 74 20 74 20 65 76 | 65 6e 74 43 6c 61 73 73 |get t ev|entClass|
|00000380| 20 65 76 65 6e 74 49 44 | 20 6b 41 75 74 6f 47 65 | eventID| kAutoGe|
|00000390| 6e 65 72 61 74 65 52 65 | 74 75 72 6e 49 44 20 6b |nerateRe|turnID k|
|000003a0| 41 6e 79 54 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |AnyTrans|actionID|
|000003b0| 20 65 76 65 6e 74 20 68 | 61 76 65 2d 65 76 65 6e | event h|ave-even|
|000003c0| 74 20 6b 65 79 52 65 74 | 75 72 6e 49 44 41 74 74 |t keyRet|urnIDAtt|
|000003d0| 72 20 74 79 70 65 4c 6f | 6e 67 49 6e 74 65 67 65 |r typeLo|ngIntege|
|000003e0| 72 20 72 65 73 75 6c 74 | 54 79 70 65 20 74 72 61 |r result|Type tra|
|000003f0| 6e 73 61 63 74 69 6f 6e | 49 44 20 61 63 74 75 61 |nsaction|ID actua|
|00000400| 6c 53 69 7a 65 20 6e 6f | 45 72 72 20 74 68 72 6f |lSize no|Err thro|
|00000410| 77 2d 65 72 72 20 41 45 | 43 72 65 61 74 65 44 65 |w-err AE|CreateDe|
|00000420| 73 63 20 34 20 41 45 43 | 72 65 61 74 65 41 70 70 |sc 4 AEC|reateApp|
|00000430| 6c 65 45 76 65 6e 74 20 | 41 45 47 65 74 41 74 74 |leEvent |AEGetAtt|
|00000440| 72 69 62 75 74 65 50 74 | 72 5d 20 31 33 29 20 41 |ributePt|r] 13) A|
|00000450| 45 44 69 73 70 6f 73 65 | 44 65 73 63 20 7a 65 72 |EDispose|Desc zer|
|00000460| 6f 70 20 65 78 74 72 61 | 63 74 2d 69 6e 74 65 72 |op extra|ct-inter|
|00000470| 6e 61 6c 20 6c 6f 6e 67 | 5d 20 31 33 29 29 0a 0a |nal long|] 13))..|
|00000480| 28 64 65 66 6d 61 63 72 | 6f 20 61 65 2d 63 72 65 |(defmacr|o ae-cre|
|00000490| 61 74 65 2d 61 70 70 6c | 65 2d 65 76 65 6e 74 20 |ate-appl|e-event |
|000004a0| 28 74 61 72 67 65 74 49 | 44 20 65 76 65 6e 74 43 |(targetI|D eventC|
|000004b0| 6c 61 73 73 20 65 76 65 | 6e 74 49 44 20 65 76 65 |lass eve|ntID eve|
|000004c0| 6e 74 20 74 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |nt trans|actionID|
|000004d0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c5 c6 |) (byte-|code "..|
|000004e0| c7 c8 08 09 0a 46 44 43 | c9 0b ca 45 c9 0c cb 45 |.....FDC|...E...E|
|000004f0| cc 25 87 22 20 5b 74 61 | 72 67 65 74 49 44 20 65 |.%." [ta|rgetID e|
|00000500| 76 65 6e 74 43 6c 61 73 | 73 20 65 76 65 6e 74 49 |ventClas|s eventI|
|00000510| 44 20 65 76 65 6e 74 20 | 74 72 61 6e 73 61 63 74 |D event |transact|
|00000520| 69 6f 6e 49 44 20 6c 69 | 73 74 20 6c 65 74 20 74 |ionID li|st let t|
|00000530| 65 6d 70 20 61 65 2d 63 | 72 65 61 74 65 2d 61 70 |emp ae-c|reate-ap|
|00000540| 70 6c 65 2d 65 76 65 6e | 74 2d 69 6e 74 65 72 6e |ple-even|t-intern|
|00000550| 61 6c 20 73 65 74 71 20 | 28 63 61 72 20 28 63 64 |al setq |(car (cd|
|00000560| 72 20 74 65 6d 70 29 29 | 20 28 63 64 72 20 28 63 |r temp))| (cdr (c|
|00000570| 64 72 20 74 65 6d 70 29 | 29 20 28 63 61 72 20 74 |dr temp)|) (car t|
|00000580| 65 6d 70 29 5d 20 37 29 | 29 0a 0a 28 64 65 66 76 |emp)] 7)|)..(defv|
|00000590| 61 72 20 61 65 2d 68 69 | 73 74 6f 72 79 20 6e 69 |ar ae-hi|story ni|
|000005a0| 6c 20 22 5c 0a 41 20 6c | 69 73 74 20 6f 66 20 41 |l "\.A l|ist of A|
|000005b0| 70 70 6c 65 20 65 76 65 | 6e 74 73 20 73 65 6e 74 |pple eve|nts sent|
|000005c0| 20 66 72 6f 6d 20 45 6d | 61 63 73 2e 09 20 54 68 | from Em|acs.. Th|
|000005d0| 69 73 20 6c 69 73 74 20 | 69 73 20 75 73 65 64 20 |is list |is used |
|000005e0| 74 6f 20 61 73 73 6f 63 | 69 61 74 65 20 72 65 70 |to assoc|iate rep|
|000005f0| 6c 69 65 73 2e 22 29 0a | 0a 28 64 65 66 75 6e 20 |lies.").|.(defun |
|00000600| 61 65 2d 68 61 76 65 2d | 72 65 71 75 69 72 65 64 |ae-have-|required|
|00000610| 2d 70 61 72 61 6d 65 74 | 65 72 73 20 28 65 76 65 |-paramet|ers (eve|
|00000620| 6e 74 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nt) (byt|e-code "|
|00000630| cb cc cd 5c 22 18 cb cc | cd 5c 22 19 cb cd cd 5c |...\"...|.\"....\|
|00000640| 22 1a ce 0c 0d 0e 06 09 | 0a cd 08 26 07 1b 0b 0e |".......|...&....|
|00000650| 07 55 83 27 00 0e 08 82 | 34 00 0b 0e 08 55 83 33 |.U.'....|4....U.3|
|00000660| 00 0e 09 82 34 00 0b 2c | 87 22 20 5b 61 63 74 75 |....4..,|." [actu|
|00000670| 61 6c 53 69 7a 65 20 72 | 65 74 75 72 6e 65 64 54 |alSize r|eturnedT|
|00000680| 79 70 65 20 64 61 74 61 | 20 65 72 72 20 65 76 65 |ype data| err eve|
|00000690| 6e 74 20 6b 65 79 4d 69 | 73 73 65 64 4b 65 79 77 |nt keyMi|ssedKeyw|
|000006a0| 6f 72 64 41 74 74 72 20 | 74 79 70 65 57 69 6c 64 |ordAttr |typeWild|
|000006b0| 43 61 72 64 20 65 72 72 | 41 45 44 65 73 63 4e 6f |Card err|AEDescNo|
|000006c0| 74 46 6f 75 6e 64 20 6e | 6f 45 72 72 20 65 72 72 |tFound n|oErr err|
|000006d0| 41 45 45 76 65 6e 74 4e | 6f 74 48 61 6e 64 6c 65 |AEEventN|otHandle|
|000006e0| 64 20 74 20 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |d t make|-string |
|000006f0| 34 20 30 20 41 45 47 65 | 74 41 74 74 72 69 62 75 |4 0 AEGe|tAttribu|
|00000700| 74 65 50 74 72 5d 20 31 | 31 29 29 0a 0a 28 64 65 |tePtr] 1|1))..(de|
|00000710| 66 75 6e 20 73 68 6f 72 | 74 2d 74 69 6d 65 2d 73 |fun shor|t-time-s|
|00000720| 74 72 69 6e 67 20 6e 69 | 6c 20 22 5c 0a 52 65 74 |tring ni|l "\.Ret|
|00000730| 75 72 6e 73 20 61 20 73 | 74 72 69 6e 67 20 72 65 |urns a s|tring re|
|00000740| 70 72 65 73 65 6e 74 69 | 6e 67 20 74 68 65 20 74 |presenti|ng the t|
|00000750| 69 6d 65 20 6f 66 20 64 | 61 79 2e 22 20 28 62 79 |ime of d|ay." (by|
|00000760| 74 65 2d 63 6f 64 65 20 | 22 c3 20 18 c4 19 c5 1a |te-code |". .....|
|00000770| 08 09 54 0a 4f 2b 87 22 | 20 5b 73 20 62 6c 61 6e |..T.O+."| [s blan|
|00000780| 6b 2d 33 20 62 6c 61 6e | 6b 2d 34 20 63 75 72 72 |k-3 blan|k-4 curr|
|00000790| 65 6e 74 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 20 |ent-time|-string |
|000007a0| 31 30 20 31 39 5d 20 34 | 29 29 0a 0a 28 64 65 66 |10 19] 4|))..(def|
|000007b0| 75 6e 20 69 6e 73 65 72 | 74 2d 72 65 70 6c 79 20 |un inser|t-reply |
|000007c0| 28 26 72 65 73 74 20 73 | 29 20 28 62 79 74 65 2d |(&rest s|) (byte-|
|000007d0| 63 6f 64 65 20 22 c4 c5 | 21 c6 20 19 18 c7 08 21 |code "..|!. ....!|
|000007e0| 3f 85 2a 00 c8 20 09 3d | 83 21 00 c9 09 ca c6 20 |?.*.. .=|.!..... |
|000007f0| 21 cb 5a 5c 22 82 24 00 | cc 08 21 1a cd 0a 08 5c |!.Z\".$.|..!....\|
|00000800| 22 29 88 ce c7 08 21 21 | 88 08 71 88 64 62 88 cf |")....!!|..q.db..|
|00000810| d0 4b 0b 5c 22 88 ce 09 | 21 2a 87 22 20 5b 65 72 |.K.\"...|!*." [er|
|00000820| 72 6f 72 73 2d 62 75 66 | 66 65 72 20 6f 72 69 67 |rors-buf|fer orig|
|00000830| 69 6e 61 6c 2d 77 69 6e | 64 6f 77 20 65 72 72 6f |inal-win|dow erro|
|00000840| 72 73 2d 77 69 6e 64 6f | 77 20 73 20 67 65 74 2d |rs-windo|w s get-|
|00000850| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 22 2a |buffer-c|reate "*|
|00000860| 72 65 70 6c 69 65 73 2a | 22 20 73 65 6c 65 63 74 |replies*|" select|
|00000870| 65 64 2d 77 69 6e 64 6f | 77 20 67 65 74 2d 62 75 |ed-windo|w get-bu|
|00000880| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 6e 65 78 74 |ffer-win|dow next|
|00000890| 2d 77 69 6e 64 6f 77 20 | 73 70 6c 69 74 2d 77 69 |-window |split-wi|
|000008a0| 6e 64 6f 77 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |ndow win|dow-heig|
|000008b0| 68 74 20 38 20 64 69 73 | 70 6c 61 79 2d 62 75 66 |ht 8 dis|play-buf|
|000008c0| 66 65 72 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 62 |fer set-|window-b|
|000008d0| 75 66 66 65 72 20 73 65 | 6c 65 63 74 2d 77 69 6e |uffer se|lect-win|
|000008e0| 64 6f 77 20 61 70 70 6c | 79 20 69 6e 73 65 72 74 |dow appl|y insert|
|000008f0| 5d 20 31 35 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |] 15))..|(defun d|
|00000900| 6f 2d 61 65 2d 61 6e 73 | 77 65 72 20 28 65 76 65 |o-ae-ans|wer (eve|
|00000910| 6e 74 20 72 65 70 6c 79 | 20 72 65 66 43 6f 6e 29 |nt reply| refCon)|
|00000920| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 cc cd ce | (byte-c|ode "...|
|00000930| 5c 22 18 cc cd ce 5c 22 | 19 cc cd ce 5c 22 1a cf |\"....\"|....\"..|
|00000940| 0c 0d 0e 06 09 0a cd 08 | 26 07 1b d0 0b 21 3f 83 |........|&....!?.|
|00000950| 28 00 d1 d2 21 82 64 00 | d3 0a ce d4 23 1e 07 d5 |(...!.d.|....#...|
|00000960| 0e 07 0e 09 5c 22 1e 08 | 0e 08 3f 83 48 00 d1 d6 |....\"..|..?.H...|
|00000970| d7 0e 07 21 d8 23 82 63 | 00 d5 ca 0e 08 41 5c 22 |...!.#.c|.....A\"|
|00000980| 41 1e 0a 0e 0a 83 60 00 | d9 0e 0a 0c 0e 08 23 82 |A.....`.|......#.|
|00000990| 62 00 0e 0b 29 2a 2c 87 | 22 20 5b 61 63 74 75 61 |b...)*,.|" [actua|
|000009a0| 6c 53 69 7a 65 20 72 65 | 73 75 6c 74 54 79 70 65 |lSize re|sultType|
|000009b0| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 49 44 2d 73 | transac|tionID-s|
|000009c0| 74 72 69 6e 67 20 65 72 | 72 20 65 76 65 6e 74 20 |tring er|r event |
|000009d0| 6b 65 79 52 65 74 75 72 | 6e 49 44 41 74 74 72 20 |keyRetur|nIDAttr |
|000009e0| 74 79 70 65 4c 6f 6e 67 | 49 6e 74 65 67 65 72 20 |typeLong|Integer |
|000009f0| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 2d 6e 75 |transact|ionID-nu|
|00000a00| 6d 62 65 72 20 68 69 73 | 74 6f 72 79 20 61 65 2d |mber his|tory ae-|
|00000a10| 68 69 73 74 6f 72 79 20 | 68 61 6e 64 6c 65 72 20 |history |handler |
|00000a20| 6e 6f 45 72 72 20 6d 61 | 6b 65 2d 73 74 72 69 6e |noErr ma|ke-strin|
|00000a30| 67 20 34 20 30 20 41 45 | 47 65 74 41 74 74 72 69 |g 4 0 AE|GetAttri|
|00000a40| 62 75 74 65 50 74 72 20 | 7a 65 72 6f 70 20 69 6e |butePtr |zerop in|
|00000a50| 73 65 72 74 2d 72 65 70 | 6c 79 20 22 52 65 63 65 |sert-rep|ly "Rece|
|00000a60| 69 76 65 64 20 61 20 72 | 65 70 6c 79 2c 20 62 75 |ived a r|eply, bu|
|00000a70| 74 20 63 61 6e 6e 6f 74 | 20 64 65 74 65 72 6d 69 |t cannot| determi|
|00000a80| 6e 65 20 6f 72 69 67 69 | 6e 61 6c 20 72 65 71 75 |ne origi|nal requ|
|00000a90| 65 73 74 0a 22 20 65 78 | 74 72 61 63 74 2d 69 6e |est." ex|tract-in|
|00000aa0| 74 65 72 6e 61 6c 20 6c | 6f 6e 67 20 61 73 73 6f |ternal l|ong asso|
|00000ab0| 63 20 22 52 65 63 65 69 | 76 65 64 20 61 20 72 65 |c "Recei|ved a re|
|00000ac0| 70 6c 79 20 77 69 74 68 | 20 49 44 20 22 20 69 6e |ply with| ID " in|
|00000ad0| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 22 2c 20 62 |t-to-str|ing ", b|
|00000ae0| 75 74 20 63 61 6e 6e 6f | 74 20 64 65 74 65 72 6d |ut canno|t determ|
|00000af0| 69 6e 65 20 6f 72 69 67 | 69 6e 61 6c 20 72 65 71 |ine orig|inal req|
|00000b00| 75 65 73 74 0a 22 20 66 | 75 6e 63 61 6c 6c 5d 20 |uest." f|uncall] |
|00000b10| 31 35 29 29 0a 0a 28 64 | 65 66 75 6e 20 61 6e 6e |15))..(d|efun ann|
|00000b20| 6f 75 6e 63 65 2d 72 65 | 70 6c 79 20 28 68 69 73 |ounce-re|ply (his|
|00000b30| 74 6f 72 79 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tory) (b|yte-code|
|00000b40| 20 22 c2 c0 09 41 5c 22 | 41 18 c3 c4 c5 20 08 83 | "...A\"|A.... ..|
|00000b50| 16 00 c6 08 c7 51 82 17 | 00 c8 c9 24 29 87 22 20 |.....Q..|...$)." |
|00000b60| 5b 64 65 73 63 72 69 70 | 74 69 6f 6e 20 68 69 73 |[descrip|tion his|
|00000b70| 74 6f 72 79 20 61 73 73 | 6f 63 20 69 6e 73 65 72 |tory ass|oc inser|
|00000b80| 74 2d 72 65 70 6c 79 20 | 22 52 65 70 6c 79 20 61 |t-reply |"Reply a|
|00000b90| 74 20 22 20 73 68 6f 72 | 74 2d 74 69 6d 65 2d 73 |t " shor|t-time-s|
|00000ba0| 74 72 69 6e 67 20 22 20 | 74 6f 20 d2 22 20 22 d3 |tring " |to ." ".|
|00000bb0| 22 20 22 22 20 22 3a 0a | 22 5d 20 38 29 29 0a 0a |" "" ":.|"] 8))..|
|00000bc0| 28 64 65 66 75 6e 20 64 | 6f 2d 73 69 6d 70 6c 65 |(defun d|o-simple|
|00000bd0| 2d 72 65 70 6c 79 2d 69 | 6e 74 65 72 6e 61 6c 20 |-reply-i|nternal |
|00000be0| 28 65 76 65 6e 74 20 68 | 69 73 74 6f 72 79 20 73 |(event h|istory s|
|00000bf0| 68 6f 77 2d 61 6c 6c 2d | 72 65 70 6c 69 65 73 29 |how-all-|replies)|
|00000c00| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 cd ce cf | (byte-c|ode "...|
|00000c10| 5c 22 18 cd ce cf 5c 22 | 19 cd ce cf 5c 22 1a d0 |\"....\"|....\"..|
|00000c20| 0c 0d 0e 06 09 08 08 47 | 0a 26 07 1b d1 0b 21 83 |.......G|.&....!.|
|00000c30| 3d 00 d2 0e 07 21 88 d3 | 08 cf d4 23 1e 08 d5 d6 |=....!..|...#....|
|00000c40| d7 0e 08 21 d8 23 29 88 | 0e 09 82 65 00 0b 0e 0a |...!.#).|...e....|
|00000c50| 55 83 57 00 0e 0b 85 51 | 00 d2 0e 07 21 88 d5 d9 |U.W....Q|....!...|
|00000c60| 21 88 0e 09 82 65 00 d2 | 0e 07 21 88 d5 da d7 0b |!....e..|..!.....|
|00000c70| 21 db 23 88 0b 2c 87 22 | 20 5b 65 72 72 6f 72 2d |!.#..,."| [error-|
|00000c80| 6e 75 6d 62 65 72 2d 64 | 61 74 61 20 72 65 74 75 |number-d|ata retu|
|00000c90| 72 6e 65 64 54 79 70 65 | 20 61 63 74 75 61 6c 53 |rnedType| actualS|
|00000ca0| 69 7a 65 20 65 72 72 20 | 65 76 65 6e 74 20 6b 65 |ize err |event ke|
|00000cb0| 79 45 72 72 6f 72 4e 75 | 6d 62 65 72 20 74 79 70 |yErrorNu|mber typ|
|00000cc0| 65 4c 6f 6e 67 49 6e 74 | 65 67 65 72 20 68 69 73 |eLongInt|eger his|
|00000cd0| 74 6f 72 79 20 65 72 72 | 6f 72 2d 6e 75 6d 62 65 |tory err|or-numbe|
|00000ce0| 72 20 6e 6f 45 72 72 20 | 65 72 72 41 45 44 65 73 |r noErr |errAEDes|
|00000cf0| 63 4e 6f 74 46 6f 75 6e | 64 20 73 68 6f 77 2d 61 |cNotFoun|d show-a|
|00000d00| 6c 6c 2d 72 65 70 6c 69 | 65 73 20 74 20 6d 61 6b |ll-repli|es t mak|
|00000d10| 65 2d 73 74 72 69 6e 67 | 20 34 20 30 20 41 45 47 |e-string| 4 0 AEG|
|00000d20| 65 74 50 61 72 61 6d 50 | 74 72 20 7a 65 72 6f 70 |etParamP|tr zerop|
|00000d30| 20 61 6e 6e 6f 75 6e 63 | 65 2d 72 65 70 6c 79 20 | announc|e-reply |
|00000d40| 65 78 74 72 61 63 74 2d | 69 6e 74 65 72 6e 61 6c |extract-|internal|
|00000d50| 20 6c 6f 6e 67 20 69 6e | 73 65 72 74 2d 72 65 70 | long in|sert-rep|
|00000d60| 6c 79 20 22 09 20 45 72 | 72 6f 72 20 22 20 65 72 |ly ". Er|ror " er|
|00000d70| 72 6f 72 2d 73 74 72 69 | 6e 67 20 22 0a 22 20 22 |ror-stri|ng "." "|
|00000d80| 20 20 4e 6f 20 64 61 74 | 61 20 77 61 73 20 73 65 | No dat|a was se|
|00000d90| 6e 74 20 69 6e 20 72 65 | 70 6c 79 2e 0a 22 20 22 |nt in re|ply.." "|
|00000da0| 20 20 43 6f 75 6c 64 20 | 6e 6f 74 20 72 65 61 64 | Could |not read|
|00000db0| 20 72 65 73 75 6c 74 2c | 20 67 6f 74 20 65 72 72 | result,| got err|
|00000dc0| 6f 72 20 22 20 22 2e 0a | 22 5d 20 31 37 29 29 0a |or " "..|"] 17)).|
|00000dd0| 0a 28 64 65 66 75 6e 20 | 64 6f 2d 73 69 6d 70 6c |.(defun |do-simpl|
|00000de0| 65 2d 72 65 70 6c 79 20 | 28 65 76 65 6e 74 20 68 |e-reply |(event h|
|00000df0| 69 73 74 6f 72 79 29 20 | 28 62 79 74 65 2d 63 6f |istory) |(byte-co|
|00000e00| 64 65 20 22 c3 08 09 c2 | 23 87 22 20 5b 65 76 65 |de "....|#." [eve|
|00000e10| 6e 74 20 68 69 73 74 6f | 72 79 20 74 20 64 6f 2d |nt histo|ry t do-|
|00000e20| 73 69 6d 70 6c 65 2d 72 | 65 70 6c 79 2d 69 6e 74 |simple-r|eply-int|
|00000e30| 65 72 6e 61 6c 5d 20 34 | 29 29 0a 0a 28 64 65 66 |ernal] 4|))..(def|
|00000e40| 75 6e 20 64 6f 2d 65 72 | 72 6f 72 2d 72 65 70 6c |un do-er|ror-repl|
|00000e50| 79 20 28 65 76 65 6e 74 | 20 68 69 73 74 6f 72 79 |y (event| history|
|00000e60| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c3 08 |) (byte-|code "..|
|00000e70| 09 c2 23 87 22 20 5b 65 | 76 65 6e 74 20 68 69 73 |..#." [e|vent his|
|00000e80| 74 6f 72 79 20 6e 69 6c | 20 64 6f 2d 73 69 6d 70 |tory nil| do-simp|
|00000e90| 6c 65 2d 72 65 70 6c 79 | 2d 69 6e 74 65 72 6e 61 |le-reply|-interna|
|00000ea0| 6c 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 65 |l] 4))..|(defun e|
|00000eb0| 72 72 6f 72 2d 73 74 72 | 69 6e 67 20 28 65 72 72 |rror-str|ing (err|
|00000ec0| 6f 72 2d 6e 75 6d 62 65 | 72 29 20 28 62 79 74 65 |or-numbe|r) (byte|
|00000ed0| 2d 63 6f 64 65 20 22 c2 | 08 21 c3 08 21 19 09 83 |-code ".|.!..!...|
|00000ee0| 12 00 c4 09 c5 51 82 13 | 00 c6 29 50 87 22 20 5b |.....Q..|..)P." [|
|00000ef0| 65 72 72 6f 72 2d 6e 75 | 6d 62 65 72 20 73 20 69 |error-nu|mber s i|
|00000f00| 6e 74 2d 74 6f 2d 73 74 | 72 69 6e 67 20 6c 6f 6f |nt-to-st|ring loo|
|00000f10| 6b 75 70 2d 65 72 72 6f | 72 2d 73 74 72 69 6e 67 |kup-erro|r-string|
|00000f20| 20 22 2c 20 d2 22 20 22 | d3 22 20 22 22 5d 20 36 | ", ." "|." ""] 6|
|00000f30| 29 29 0a 0a 28 64 65 66 | 75 6e 20 72 65 70 6f 72 |))..(def|un repor|
|00000f40| 74 2d 65 72 72 6f 72 2d | 69 6e 2d 6d 65 73 73 61 |t-error-|in-messa|
|00000f50| 67 65 2d 6c 69 6e 65 20 | 28 65 72 72 29 20 28 62 |ge-line |(err) (b|
|00000f60| 79 74 65 2d 63 6f 64 65 | 20 22 c2 08 21 3f 85 1f |yte-code| "..!?..|
|00000f70| 00 c3 08 21 19 c4 c5 c6 | 08 21 09 83 1b 00 c7 09 |...!....|.!......|
|00000f80| c8 51 82 1c 00 c9 51 21 | 29 87 22 20 5b 65 72 72 |.Q....Q!|)." [err|
|00000f90| 20 65 72 72 6f 72 2d 73 | 74 72 69 6e 67 20 7a 65 | error-s|tring ze|
|00000fa0| 72 6f 70 20 6c 6f 6f 6b | 75 70 2d 65 72 72 6f 72 |rop look|up-error|
|00000fb0| 2d 73 74 72 69 6e 67 20 | 6d 65 73 73 61 67 65 20 |-string |message |
|00000fc0| 22 57 68 69 6c 65 20 73 | 65 6e 64 69 6e 67 20 41 |"While s|ending A|
|00000fd0| 70 70 6c 65 20 65 76 65 | 6e 74 2c 20 67 6f 74 20 |pple eve|nt, got |
|00000fe0| 65 72 72 6f 72 20 22 20 | 69 6e 74 2d 74 6f 2d 73 |error " |int-to-s|
|00000ff0| 74 72 69 6e 67 20 22 2c | 20 d2 22 20 22 d3 22 20 |tring ",| ." "." |
|00001000| 22 22 5d 20 39 29 29 0a | 0a 28 64 65 66 75 6e 20 |""] 9)).|.(defun |
|00001010| 6c 61 75 6e 63 68 2d 61 | 70 70 6c 69 63 61 74 69 |launch-a|pplicati|
|00001020| 6f 6e 20 28 6e 61 6d 65 | 29 20 22 5c 0a 4c 61 75 |on (name|) "\.Lau|
|00001030| 6e 63 68 20 74 68 65 20 | 61 70 70 6c 69 63 61 74 |nch the |applicat|
|00001040| 69 6f 6e 20 6e 61 6d 65 | 64 20 41 50 50 4c 49 43 |ion name|d APPLIC|
|00001050| 41 54 49 4f 4e 20 69 6e | 20 7e 2f 65 74 63 2e 22 |ATION in| ~/etc."|
|00001060| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 ce 18 ce | (byte-c|ode "...|
|00001070| 19 ce 1a cf 0c d0 5c 22 | 1b ce 1d ce 1e 06 cf d1 |......\"|........|
|00001080| d0 5c 22 1e 07 ce 1e 08 | ce 1e 09 cf 0e 0b d0 5c |.\".....|.......\|
|00001090| 22 1e 0a ce 1e 0c d2 d3 | 8d 1e 0d 0a 85 32 00 d4 |".......|.....2..|
|000010a0| 09 21 88 0e 0c 85 3c 00 | d4 0e 0a 21 88 0e 0d 2e |.!....<.|...!....|
|000010b0| 0c 87 22 20 5b 74 61 72 | 67 65 74 20 65 76 65 6e |.." [tar|get even|
|000010c0| 74 20 68 61 76 65 2d 65 | 76 65 6e 74 20 72 65 70 |t have-e|vent rep|
|000010d0| 6c 79 20 73 69 7a 65 6f | 66 2d 41 70 70 6c 65 45 |ly sizeo|f-AppleE|
|000010e0| 76 65 6e 74 20 74 72 61 | 6e 73 61 63 74 69 6f 6e |vent tra|nsaction|
|000010f0| 49 44 20 73 70 65 63 20 | 61 6c 69 61 73 2d 73 74 |ID spec |alias-st|
|00001100| 72 69 6e 67 20 61 6c 69 | 61 73 2d 68 61 6e 64 6c |ring ali|as-handl|
|00001110| 65 20 61 6c 69 61 73 2d | 64 61 74 61 20 61 65 2d |e alias-|data ae-|
|00001120| 6c 69 73 74 20 73 69 7a | 65 6f 66 2d 41 45 44 65 |list siz|eof-AEDe|
|00001130| 73 63 4c 69 73 74 20 68 | 61 76 65 2d 61 65 2d 6c |scList h|ave-ae-l|
|00001140| 69 73 74 20 72 65 73 75 | 6c 74 20 6e 69 6c 20 6d |ist resu|lt nil m|
|00001150| 61 6b 65 2d 73 74 72 69 | 6e 67 20 30 20 34 20 70 |ake-stri|ng 0 4 p|
|00001160| 61 6e 69 63 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |anic (by|te-code |
|00001170| 22 d9 da db 09 0a 23 18 | 08 41 40 89 13 88 08 41 |".....#.|.A@....A|
|00001180| 41 89 14 88 08 40 29 21 | 88 c6 89 15 88 d9 dc dd |A....@)!|........|
|00001190| 21 18 08 40 89 16 07 88 | 08 41 29 21 88 d9 de df |!..@....|.A)!....|
|000011a0| 0e 07 0e 08 23 21 88 e0 | 0e 08 df e1 23 89 16 09 |....#!..|....#...|
|000011b0| 88 e2 0e 09 21 88 e0 e3 | 0e 09 21 e4 e5 23 1e 0a |....!...|..!..#..|
|000011c0| e0 e3 0e 09 21 df e6 0e | 0a 24 89 16 0b 29 88 e7 |....!...|.$...)..|
|000011d0| 0e 09 21 88 d9 e8 0b 0e | 0c 0e 0d 0e 0b 0e 0b 47 |..!.....|.......G|
|000011e0| 25 21 88 d9 dc e9 0e 0e | 50 21 18 08 40 89 16 07 |%!......|P!..@...|
|000011f0| 88 08 41 29 21 88 d9 ea | 0e 07 0e 08 5c 22 21 88 |..A)!...|....\"!.|
|00001200| e0 0e 08 df e1 23 89 16 | 09 88 e2 0e 09 21 88 e0 |.....#..|.....!..|
|00001210| e3 0e 09 21 e4 e5 23 1e | 0a e0 e3 0e 09 21 df e6 |...!..#.|.....!..|
|00001220| 0e 0a 24 89 16 0b 29 88 | e7 0e 09 21 88 d9 eb df |..$...).|...!....|
|00001230| df df 0e 0f 24 21 88 c6 | 89 16 10 88 d9 ec 0e 0f |....$!..|........|
|00001240| df 0e 0d 0e 0b 0e 0b 47 | 25 21 88 d9 ed 0b 0e 11 |.......G|%!......|
|00001250| 0e 0f 23 21 88 d9 ee 0b | 0e 12 0e 13 0e 14 5c 5c |..#!....|......\\|
|00001260| 0e 15 0e 16 df df 26 07 | 21 88 0c ef f0 0e 0e 50 |......&.|!......P|
|00001270| 42 43 42 0e 17 42 89 16 | 17 88 0e 18 87 22 20 5b |BCB..B..|....." [|
|00001280| 74 65 6d 70 20 6b 41 45 | 46 69 6e 64 65 72 45 76 |temp kAE|FinderEv|
|00001290| 65 6e 74 73 20 6b 41 45 | 4f 70 65 6e 53 65 6c 65 |ents kAE|OpenSele|
|000012a0| 63 74 69 6f 6e 20 65 76 | 65 6e 74 20 74 72 61 6e |ction ev|ent tran|
|000012b0| 73 61 63 74 69 6f 6e 49 | 44 20 68 61 76 65 2d 65 |sactionI|D have-e|
|000012c0| 76 65 6e 74 20 74 20 73 | 70 65 63 20 61 6c 69 61 |vent t s|pec alia|
|000012d0| 73 2d 73 74 72 69 6e 67 | 20 61 6c 69 61 73 2d 68 |s-string| alias-h|
|000012e0| 61 6e 64 6c 65 20 61 6c | 69 61 73 2d 73 69 7a 65 |andle al|ias-size|
|000012f0| 20 61 6c 69 61 73 2d 64 | 61 74 61 20 6b 65 79 44 | alias-d|ata keyD|
|00001300| 69 72 65 63 74 4f 62 6a | 65 63 74 20 74 79 70 65 |irectObj|ect type|
|00001310| 41 6c 69 61 73 20 6e 61 | 6d 65 20 61 65 2d 6c 69 |Alias na|me ae-li|
|00001320| 73 74 20 68 61 76 65 2d | 61 65 2d 6c 69 73 74 20 |st have-|ae-list |
|00001330| 6b 65 79 53 65 6c 65 63 | 74 69 6f 6e 20 72 65 70 |keySelec|tion rep|
|00001340| 6c 79 20 6b 41 45 51 75 | 65 75 65 52 65 70 6c 79 |ly kAEQu|eueReply|
|00001350| 20 6b 41 45 4e 65 76 65 | 72 49 6e 74 65 72 61 63 | kAENeve|rInterac|
|00001360| 74 20 6b 41 45 4e 6f 72 | 6d 61 6c 50 72 69 6f 72 |t kAENor|malPrior|
|00001370| 69 74 79 20 6b 41 45 44 | 65 66 61 75 6c 74 54 69 |ity kAED|efaultTi|
|00001380| 6d 65 6f 75 74 20 61 65 | 2d 68 69 73 74 6f 72 79 |meout ae|-history|
|00001390| 20 6e 6f 45 72 72 20 74 | 68 72 6f 77 2d 65 72 72 | noErr t|hrow-err|
|000013a0| 20 61 65 2d 63 72 65 61 | 74 65 2d 61 70 70 6c 65 | ae-crea|te-apple|
|000013b0| 2d 65 76 65 6e 74 2d 69 | 6e 74 65 72 6e 61 6c 20 |-event-i|nternal |
|000013c0| 22 4d 41 43 53 22 20 75 | 6e 69 78 2d 66 69 6c 65 |"MACS" u|nix-file|
|000013d0| 6e 61 6d 65 2d 74 6f 2d | 46 53 53 70 65 63 2d 69 |name-to-|FSSpec-i|
|000013e0| 6e 74 65 72 6e 61 6c 20 | 22 2f 62 69 6e 22 20 4e |nternal |"/bin" N|
|000013f0| 65 77 41 6c 69 61 73 20 | 30 20 65 78 74 72 61 63 |ewAlias |0 extrac|
|00001400| 74 2d 69 6e 74 65 72 6e | 61 6c 20 75 6e 73 69 67 |t-intern|al unsig|
|00001410| 6e 65 64 2d 6c 6f 6e 67 | 20 48 4c 6f 63 6b 20 64 |ned-long| HLock d|
|00001420| 65 72 65 66 20 34 20 73 | 68 6f 72 74 20 73 74 72 |eref 4 s|hort str|
|00001430| 69 6e 67 20 44 69 73 70 | 6f 73 48 61 6e 64 6c 65 |ing Disp|osHandle|
|00001440| 20 41 45 50 75 74 50 61 | 72 61 6d 50 74 72 20 22 | AEPutPa|ramPtr "|
|00001450| 2f 62 69 6e 2f 22 20 4e | 65 77 41 6c 69 61 73 4d |/bin/" N|ewAliasM|
|00001460| 69 6e 69 6d 61 6c 20 41 | 45 43 72 65 61 74 65 4c |inimal A|ECreateL|
|00001470| 69 73 74 20 41 45 50 75 | 74 50 74 72 20 41 45 50 |ist AEPu|tPtr AEP|
|00001480| 75 74 50 61 72 61 6d 44 | 65 73 63 20 41 45 53 65 |utParamD|esc AESe|
|00001490| 6e 64 20 64 65 73 63 72 | 69 70 74 69 6f 6e 20 22 |nd descr|iption "|
|000014a0| 6c 61 75 6e 63 68 20 22 | 5d 20 34 31 29 20 41 45 |launch "|] 41) AE|
|000014b0| 44 69 73 70 6f 73 65 44 | 65 73 63 5d 20 36 29 29 |DisposeD|esc] 6))|
|000014c0| 0a 0a 28 41 45 49 6e 73 | 74 61 6c 6c 45 76 65 6e |..(AEIns|tallEven|
|000014d0| 74 48 61 6e 64 6c 65 72 | 20 6b 43 6f 72 65 45 76 |tHandler| kCoreEv|
|000014e0| 65 6e 74 43 6c 61 73 73 | 20 6b 41 45 41 6e 73 77 |entClass| kAEAnsw|
|000014f0| 65 72 20 28 71 75 6f 74 | 65 20 64 6f 2d 61 65 2d |er (quot|e do-ae-|
|00001500| 61 6e 73 77 65 72 29 20 | 30 20 30 29 0a 00 00 00 |answer) |0 0)....|
|00001510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001580| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00001590| 6f 74 65 20 62 79 74 65 | 2d 66 6f 6c 6c 6f 77 69 |ote byte|-followi|
|000015a0| 6e 67 2d 63 68 61 72 29 | 29 0a 0a 28 70 75 74 20 |ng-char)|)..(put |
|000015b0| 10 61 70 70 6c 65 2d 65 | 76 65 6e 74 73 2e 65 6c |.apple-e|vents.el|
|000015c0| 63 70 02 00 00 00 64 45 | 4c 43 45 4d 41 43 01 00 |cp....dE|LCEMAC..|
|000015d0| 00 00 64 45 4c 43 45 4d | 41 43 01 00 00 34 00 00 |..dELCEM|AC...4..|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 a9 83 4a b4 00 00 | 14 8d 00 00 01 3c 74 20 |....J...|.....<t |
|00001600| 28 71 75 6f 74 65 20 70 | 72 65 63 65 64 69 6e 67 |(quote p|receding|
|00001610| 2d 63 68 61 72 29 20 28 | 71 75 6f 74 65 20 62 79 |-char) (|quote by|
|00001620| 74 65 2d 6f 70 63 6f 64 | 65 29 20 28 71 75 6f 74 |te-opcod|e) (quot|
|00001630| 65 20 62 79 74 65 2d 70 | 72 65 63 65 64 69 6e 67 |e byte-p|receding|
|00001640| 2d 63 68 61 72 29 29 0a | 0a 28 70 75 74 20 28 71 |-char)).|.(put (q|
|00001650| 75 6f 74 65 20 63 75 72 | 72 65 6e 74 2d 63 6f 6c |uote cur|rent-col|
|00001660| 75 6d 6e 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |umn) (qu|ote byte|
|00001670| 2d 63 6f 6d 70 69 6c 65 | 29 20 28 71 75 6f 74 65 |-compile|) (quote|
|00001680| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00001690| 01 0a 00 00 00 0a 00 00 | 00 32 00 52 68 34 05 e2 |........|.2.Rh4..|
|000016a0| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|000016b0| bf f4 ff ff 00 00 00 00 | 00 58 ad dc 00 00 00 00 |........|.X......|
|000016c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+